Option Explicit
Sub E_Sample024()
   'ո E_Data01u@g
    Dim myRng As Range
    Set myRng = Intersect(Columns("C"),Range("A1").CurrentRegion)'ӷd
    myRng.AdvancedFilter _
    Action:=xlFilterInPlace, _
    Unique:=True
    Set myRng = Nothing						'
End Sub
